(Fcompute_motion): Check that TO and FROM are in range.

diff --git a/src/indent.c b/src/indent.c
index 2811fbde7b7cda96592a8c9e8a537036e2480c34..897aa8d10725f153b59e2516eaeed6443250dd42 100644 (file)
--- a/src/indent.c
+++ b/src/indent.c
@@ -1566,6 +1566,11 @@ DEFUN ("compute-motion", Fcompute_motion, Scompute_motion, 7, 7, 0,
   else
     CHECK_LIVE_WINDOW (window, 0);
 
+  if (XINT (from) < BEGV || XINT (from) > ZV)
+    args_out_of_range_3 (from, make_number (BEGV), make_number (ZV));
+  if (XINT (to) < BEGV || XINT (to) > ZV)
+    args_out_of_range_3 (to, make_number (BEGV), make_number (ZV));
+
   pos = compute_motion (XINT (from), XINT (XCONS (frompos)->cdr),
                        XINT (XCONS (frompos)->car), 0,
                        XINT (to), XINT (XCONS (topos)->cdr),